Magnum One/Magnum One (Mid-American Digital) (Disc Manufacturing).iso/d18/nrpas13.arc/BETA.PAS

Pascal/Delphi Source File | 1991-05-01 | 99b | 5 lines

FUNCTION beta(VAR z,w: real): real;
BEGIN
   beta := exp(gammln(z)+gammln(w)-gammln(z+w))
END;